-- paquetage de base
with Ada.Text_IO, Ada.Integer_Text_IO;use Ada.Text_IO,Ada.Integer_Text_IO;


package T_Carte_Sim is

	type Carte_Sim is record
	-- Si la variable est a vrai, le telephone n'est pas utilisable
		enPanne : boolean; 
	-- Numeros du telephone courant
		monNum : Integer; 
	-- Indique si le telephone est en cours de communication
		enLigne : boolean; 
	end record;

end T_Carte_Sim;
